home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / math / math_ieee / fltull.s < prev    next >
Encoding:
Text File  |  1998-06-24  |  241 b   |  16 lines
  1.  xref _MathIeeeSingBasBase
  2.  
  3.  xdef __ieeefltull
  4. __ieeefltull:
  5.  move.l  4(sp),d0
  6.  move.l  a6,-(sp)
  7.  move.l  _MathIeeeSingBasBase,a6
  8.  jsr     -36(a6)
  9.  tst.l   8(sp)
  10.  bge.s   ll
  11.  move.l  #$4f800000,d1
  12.  jsr     -66(a6)
  13. ll:
  14.  move.l  (sp)+,a6
  15.  rts
  16.